home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbwiz13.zip / SOURCE.ZIP / DOSVERS.ASM < prev    next >
Assembly Source File  |  1992-07-14  |  1KB  |  44 lines

  1. comment #
  2.  
  3.    +----------------------------------------------------------------------+
  4.    |                                                                      |
  5.    |         QBWiz  Copyright (c) 1990-1992  Thomas G. Hanlin III         |
  6.    |                                                                      |
  7.    |                       QuickBasic Access Library                      |
  8.    |                                                                      |
  9.    +----------------------------------------------------------------------+
  10.  
  11. #
  12.  
  13. public  DOSVERSION
  14.  
  15.  
  16. .model medium
  17.  
  18. .code
  19.  
  20.  
  21.  
  22. extrn  __osmajor: byte
  23. extrn  __osminor: byte
  24.  
  25.  
  26.  
  27. DOSVERSION    proc                     ; get DOS version
  28.               push           bp             ;
  29.               mov            bp,sp          ;
  30.               xor            ax,ax          ;
  31.               mov            al,__osmajor   ;
  32.               mov            bx,8[bp]       ;
  33.               mov            [bx],ax        ;
  34.               mov            al,__osminor   ;
  35.               mov            bx,6[bp]       ;
  36.               mov            [bx],ax        ;
  37.               pop            bp             ;
  38.               ret            4              ;
  39. DOSVERSION    endp                     ; get DOS version
  40.  
  41.  
  42.  
  43.               end
  44.